home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / LabFrame.tcl.z / LabFrame.tcl
Encoding:
Text File  |  1999-01-26  |  1.0 KB  |  46 lines
  1. # LabFrame.tcl --
  2. #
  3. #     TixLabelFrame Widget: a frame box with a label
  4. #
  5. # Copyright (c) 1996, Expert Interface Technologies
  6. #
  7. # See the file "license.terms" for information on usage and redistribution
  8. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  9. #
  10.  
  11. tixWidgetClass tixLabelFrame {
  12.     -classname TixLabelFrame
  13.     -superclass tixLabelWidget
  14.     -method {
  15.     frame
  16.     }
  17.     -flag {}
  18.     -static {}
  19.     -configspec {
  20.     {-labelside labelSide LabelSide acrosstop}
  21.     {-padx padX Pad 2}
  22.     {-pady padY Pad 2}
  23.     }
  24.     -alias {}
  25.     -default {
  26.     {*Label.font            -Adobe-Helvetica-Bold-R-Normal--*-120-*}
  27.     {*Label.anchor          c}
  28.     {.frame.borderWidth    2}
  29.     {.frame.relief        groove}
  30.     {.border.borderWidth    2}
  31.     {.border.relief        groove}
  32.     {.borderWidth          2}
  33.     {.padX              2}
  34.     {.padY              2}
  35.     {.anchor          sw}
  36.     }
  37. }
  38.  
  39. #----------------------------------------------------------------------
  40. # Public methods
  41. #----------------------------------------------------------------------
  42. proc tixLabelFrame:frame {w args} {
  43.  
  44.     return [eval tixCallMethod $w subwidget frame $args]
  45. }
  46.